home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
techjock.arc
/
DIRDEM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-11-18
|
866b
|
34 lines
Program Example_Of_The_Directory_Lister;
Uses CRT, FastTTT, DOS, KeyTTT, WinTTT, DirTTT;
Var
StartPath, Path, Mask, Chosen_File : string;
Ch : char;
begin
ClrScr;
GetDir(0,StartPath);
Path := StartPath;
Mask := '*.*';
With D do
begin
Cols := 5;
Rows := 8;
AllowEsc := false;
end;
{Thats all you have to do! Now call the directory function. You may want
to save the screen first in a real application}
Chosen_File := Display_Directory(Path,Mask);
GotoXy(1,22);
If Chosen_File = #027 then
Write('You escaped')
else
Write('You selected file ',Chosen_File);
{$I-}
ChDir(StartPath);
WriteAT(1,24,white,black,'Run DemoTTT.exe for the main demo program');
WriteAT(1,25,white,black,'Technojocks Turbo Toolkit v4.0');
Ch := Readkey;
end.